TRANSACTOR MAGAZINE

C128 VERIFIZER (40 column mode)

VERIFIZER should be run before typing in any long program from the
pages of The Transactor It will let you check your work line by line as
you enter the program, and catch frustrating typing errors. 
The VERIFIZER concept works by displaying a two-letter code for
each program line which you can check against the corresponding
code in the program listing.

The Transactor's Foolproof Program Entry Method
SYS 3072,1 to enable the C128 version (off: SYS 3072,0)


New Style Verifizer c128 


1000 rem new style verifizer c128
1010 rem date: 08.11.2023, lived.ch
1020 rem :
1030 rem read!
1040 rem :
1050 rem verifizer should be run before
1060 rem typing in any long program 
1070 rem from the pages of
1080 rem the Transactor
1090 rem :
1100 print chr$(147):color 5,12
1105 color 0,14:color 4,6
1110 a$ ="*   loader  verifizer!   *"
1120 b$ ="* commodore c128 version *"
1130 c$ ="* (40 column mode only!) *"
1140 d$ ="* hex:          dec:     *"
1150 y$ ="* sys 3072,1: enable     *"
1160 n$ ="* sys 3072,0: disable    *"
1170 al = len(a$):bl = len(b$)
1180 cl = len(c$):dl = len(d$)
1190 yl = len(y$):nl = len(n$)  
1200 ax = (40/2)-(al/2)
1210 bx = (40/2)-(bl/2)
1220 cx = (40/2)-(cl/2) 
1230 dx = (40/2)-(dl/2)
1240 yx = (40/2)-(yl/2)
1250 nx = (40/2)-(nl/2)
1260 print
1270 for a=1 to 40:printchr$(192);:next
1280 char 0,ax,3,a$
1290 char 0,bx,4,b$
1300 char 0,cx,5,c$
1310 char 0,dx,7,d$
1320 print
1330 for a=1 to 40:printchr$(192);:next
1340 cs = 0
1350 for j = 3072 to 3214
1360 sound 1,999,1,1,,,1
1370 read x
1380 poke j,x
1390 ch=ch+x
1400 if x<100 then r$=" "
1410 if x>99  then r$=""
1420 color 5,6 
1430 char 0,27,7,str$(x)
1440 char 0,30,7,r$
1450 char 0,14,7,h$+hex$(x)
1460 next
1470 color 5,7
1480 if ch<> 17860 then print "checksum error": stop
1490 rem :
1500 rem success!
1510 rem :
1520 char 0,yx,10,y$
1530 char 0,nx,11,n$
1540 end
1600 data 208,11,165,253,141,2,3,165
1610 data 254,141,3,3,96,173,3,3
1620 data 201,12,240,17,133,254,173,2
1630 data 3,133,253,169,38,141,2,3
1640 data 169,12,141,3,3,96,165,22
1650 data 133,250,162,0,160,0,189,0
1660 data 2,201,48,144,7,201,58,176
1670 data 3,232,208,242,189,0,2,240
1680 data 22,201,32,240,15,133,252,200
1690 data 152,41,3,133,251,32,135,12
1700 data 198,251,16,249,232,208,229,56
1710 data 32,240,255,169,19,32,210,255
1720 data 169,18,32,210,255,165,250,41
1730 data 15,24,105,193,32,210,255,165
1740 data 250,74,74,74,74,24,105,193
1750 data 32,210,255,169,146,32,210,255
1760 data 24,32,240,255,108,253,0,165
1770 data 252,24,101,250,133,250,96